Software of the Month Club 2000 October/Software of the Month - Ultimate Collection Shareware 277.iso/pc/PROGRAMS/PRODUCTI/GTRIPPLE/GTRIPPLE.EXE/0/RCDATA/TFRIPPLE/TFRIPPLE.txt

Text File | 1999-09-14 | 9KB | 398 lines

object fRipple: TfRipple
  Left = 263
  Top = 227
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'GT Ripple'
  ClientHeight = 302
  ClientWidth = 486
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Verdana'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pControls: TPanel
    Left = 165
    Top = 0
    Width = 321
    Height = 302
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Label4: TLabel
      Left = 168
      Top = 232
      Width = 81
      Height = 13
      Caption = 'Refresh Delay'
    end
    object Label2: TLabel
      Left = 16
      Top = 72
      Width = 57
      Height = 13
      Caption = 'Amplitude'
    end
    object Label3: TLabel
      Left = 16
      Top = 8
      Width = 59
      Height = 13
      Caption = 'Frequency'
    end
    object Label5: TLabel
      Left = 176
      Top = 8
      Width = 36
      Height = 13
      Caption = 'Height'
    end
    object Label6: TLabel
      Left = 176
      Top = 72
      Width = 66
      Height = 13
      Caption = 'Perspective'
    end
    object Bevel1: TBevel
      Left = 16
      Top = 216
      Width = 297
      Height = 2
    end
    object Label1: TLabel
      Left = 176
      Top = 128
      Width = 36
      Height = 13
      Caption = 'Speed'
    end
    object cbHideDesktopIcons: TCheckBox
      Left = 16
      Top = 176
      Width = 137
      Height = 17
      Caption = 'Hide Desktop Icons'
      TabOrder = 8
      OnClick = cbHideDesktopIconsClick
    end
    object tbPerspective: TTrackBar
      Left = 168
      Top = 88
      Width = 150
      Height = 33
      Max = 100
      Orientation = trHorizontal
      Frequency = 5
      Position = 20
      SelEnd = 0
      SelStart = 0
      TabOrder = 3
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = tbPerspectiveChange
    end
    object tbSpeed: TTrackBar
      Left = 168
      Top = 144
      Width = 150
      Height = 33
      Max = 50
      Min = 1
      Orientation = trHorizontal
      Frequency = 2
      Position = 5
      SelEnd = 0
      SelStart = 0
      TabOrder = 4
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = tbSpeedChange
    end
    object tbRefreshRate: TTrackBar
      Left = 160
      Top = 248
      Width = 150
      Height = 33
      Max = 500
      Min = 1
      Orientation = trHorizontal
      Frequency = 25
      Position = 20
      SelEnd = 0
      SelStart = 0
      TabOrder = 5
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = tbRefreshRateChange
    end
    object tbAmplitude: TTrackBar
      Left = 8
      Top = 88
      Width = 150
      Height = 33
      Max = 10000
      Min = 100
      Orientation = trHorizontal
      PageSize = 100
      Frequency = 1000
      Position = 100
      SelEnd = 0
      SelStart = 0
      TabOrder = 2
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = tbAmplitudeChange
    end
    object tbFrequency: TTrackBar
      Left = 8
      Top = 24
      Width = 150
      Height = 33
      Max = 200
      Min = 1
      Orientation = trHorizontal
      Frequency = 10
      Position = 1
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = tbFrequencyChange
    end
    object tbHeight: TTrackBar
      Left = 168
      Top = 24
      Width = 150
      Height = 33
      Max = 100
      Min = 20
      Orientation = trHorizontal
      Frequency = 20
      Position = 20
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      ThumbLength = 20
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = tbHeightChange
    end
    object cbMirror: TCheckBox
      Left = 16
      Top = 128
      Width = 97
      Height = 17
      Caption = 'Mirror'
      TabOrder = 6
      OnClick = cbMirrorClick
    end
    object cbHorizontalRipple: TCheckBox
      Left = 16
      Top = 192
      Width = 137
      Height = 17
      Caption = 'Horizontal Ripple'
      TabOrder = 7
      OnClick = cbHorizontalRippleClick
    end
    object rgWaveDirection: TRadioGroup
      Left = 16
      Top = 232
      Width = 137
      Height = 65
      Caption = 'Wave Direction'
      ItemIndex = 1
      Items.Strings = (
        '&Up'
        '&Down')
      TabOrder = 9
      OnClick = rgWaveDirectionClick
    end
    object bMoreLess: TButton
      Left = 176
      Top = 184
      Width = 137
      Height = 25
      TabOrder = 10
      OnClick = bMoreLessClick
    end
    object cbReflectWindows: TCheckBox
      Left = 16
      Top = 144
      Width = 137
      Height = 17
      Caption = 'Reflect Windows'
      TabOrder = 11
      OnClick = cbReflectWindowsClick
    end
    object cbReflectDesktopIcons: TCheckBox
      Left = 16
      Top = 160
      Width = 145
      Height = 17
      Caption = 'Reflect Desktop Icons'
      TabOrder = 12
      OnClick = cbReflectDesktopIconsClick
    end
    object cbStartAtStartup: TCheckBox
      Left = 168
      Top = 280
      Width = 137
      Height = 17
      Caption = 'Start at startup'
      TabOrder = 13
      OnClick = cbStartAtStartupClick
    end
  end
  object pLogo: TPanel
    Left = 0
    Top = 0
    Width = 165
    Height = 302
    Align = alLeft
    BevelOuter = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 1
    object iLogo: TImage
      Left = 9
      Top = 11
      Width = 145
      Height = 88
      Cursor = crHandPoint
      AutoSize = True
      OnMouseDown = iLogoMouseDown
      OnMouseUp = iLogoMouseUp
    end
    object lName: TLabel
      Left = 8
      Top = 176
      Width = 13
      Height = 12
      Caption = 'By'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object GTLink1: TGTLink
      Left = 24
      Top = 176
      Width = 88
      Height = 12
      Cursor = crHandPoint
      Hint = 'mailto:[e-mail]'
      Caption = 'Gareth T Hadfield'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -9
      Font.Name = 'Verdana'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      ClickedColor = clRed
      URL = 'mailto:[e-mail]'
    end
    object GTLink2: TGTLink
      Left = 24
      Top = 192
      Width = 93
      Height = 12
      Cursor = crHandPoint
      Hint = 'http://www.pnc.com.au/~garethth'
      Caption = 'GTRipple Web Site'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -9
      Font.Name = 'Verdana'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      ClickedColor = clRed
      URL = 'http://www.pnc.com.au/~garethth'
    end
    object lVersion: TLabel
      Left = 16
      Top = 80
      Width = 73
      Height = 13
      Caption = 'Version 1.3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object GTTrayIcon1: TGTTrayIcon
      Left = 40
      Top = 104
      Width = 32
      Height = 32
      Hint = 'GT Ripple'
      OnLeftClick = GTTrayIcon1LeftClick
      OnRightClick = GTTrayIcon1RightClick
    end
  end
  object Timer1: TTimer
    Interval = 50
    OnTimer = Timer1Timer
    Left = 8
    Top = 104
  end
  object pmTrayMenu: TPopupMenu
    OnPopup = pmTrayMenuPopup
    Left = 80
    Top = 104
    object Options1: TMenuItem
      Caption = '&Options'
      OnClick = Options1Click
    end
    object Refresh1: TMenuItem
      Caption = '&Refresh'
      OnClick = Refresh1Click
    end
    object Suspend1: TMenuItem
      Caption = '&Suspend'
      OnClick = Suspend1Click
    end
    object HideDesktopIcons1: TMenuItem
      Caption = '&Hide Desktop Icons'
      OnClick = HideDesktopIcons1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Exit1: TMenuItem
      Caption = 'E&xit'
      OnClick = Exit1Click
    end
  end
end